-- card: 8995 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 3266
-- name: Map of Regions
----- HyperTalk script -----
on goRegion regionNum
  lock screen
  go to card "Region" && regionNum && "Chart"

  if the result is "no such card" then
    answer "Data for Region" && regionNum && "are not available."
    exit goRegion
  end if

  --clear the card graphic
  if not inDebug() then
    set cursor to watch
    ClearOutCard item 4 of rect of background button "Regional Chart", item 4 of the rect of field "Region Data"
  end if

  hideStatus
  unlock screen with visual iris open
  RetrieveRegionData
end goRegion

on closeCard
  choose browse tool
  lock screen
  hide field "status"
  hide field "status backdrop"
  unlock screen
  pass closeCard
end closeCard

--on goRegion regionNum
visual iris open
go to card "Region" && regionNum && "Chart"

if the result is "no such card" then
  answer "Data for Region" && regionNum && "are not available."
  exit goRegion
end if

set cursor to watch
RetrieveRegionData
end goRegion

--on closeCard
set lockScreen to true
hide field "status"
hide field "status backdrop"
choose browse tool
set lockScreen to false
pass closeCard
end closeCard


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=65 top=42 right=202 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 302
----- HyperTalk script -----
on mouseUp
  goRegion (short name of me)
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=37 right=131 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 105
----- HyperTalk script -----
on mouseUp
  goRegion (short name of me)
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=54 right=161 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 210
----- HyperTalk script -----
on mouseUp
  goRegion (short name of me)
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=328 top=138 right=295 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 110
----- HyperTalk script -----
on mouseUp
  goRegion (short name of me)
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=165 top=171 right=281 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 220
----- HyperTalk script -----
on mouseUp
  goRegion (short name of me)
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=319 right=337 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Time & Date


-- part contents for card part 11
----- text -----
Data as of: 8/19/90 2:27 PM

-- part contents for background part 10
----- text -----
Disconnected